home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 116
/
116.d81
/
dessert boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
31 lines
100 dv=peek(186):ifdv<8thendv=8
110 delay=116:poke53280,0:poke53281,0
120 print"[147]";
130 fori=8to23:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next
140 print"":fori=217to242:pokei,peek(i)or128:next
150 poke214,9:print"[145]"tab(2)"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
160 fori=1to11:printtab(2)"[159] [155][146][223]":next
170 printtab(2)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][223]"
180 print"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
190 poke214,10:print"[145][159]";
200 fori=1to11:reada$
210 printspc(20-len(a$)/2)""a$:a$="":next
220 delay=delay+1:j=peek(56320)and16:geta$:if(a$="")andj<>0anddel<116then220
230 a$="desserts"
240 data"[204] [207] [193][160][196] [211] [212] [193] [210] [160][196][160][197][160][211][160][211][160][197] [210][160][212] [211]","by the [202]ones [194]oys
250 [131]" (len)1994 by (NULL)oftdisk (NULL)ublishing"
260 [131]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
270 data" [212]his is the copyrighted work of
280 [131]"(NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$, (NULL)(NULL)(NULL) intended
290 data"for distribution as public domain ","or shareware. [210]eport any illegal
300 [131]"distribution of this program by "
310 [131]"calling (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) lenustomer service:
320 data"1-800-831-2694 or 1-318-221-8718
330 [129]i[178]dv[164]dv:[160]2:[159]2,i,2:[160]2:[139]st[167]350
340 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]360
350 [130]:[153]""a$" not found!":[151]186,8:[128]
360 q$[178][199](34):[151]646,[194](53281):[153]"";
370 [153]"p(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
380 [153]"r(NULL):";:[151]631,13:[151]632,145:[151]633,145:[151]634,145
390 [151]635,145:[151]636,13:[151]198,6